home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr13 / golisp.zip / TA.LSP < prev    next >
Text File  |  1995-01-20  |  1KB  |  41 lines
  1. ;Allows additional lines of text to be added to an existing line of text
  2. ;Bob Zelna
  3.  
  4. (DEFUN C:TA ()
  5. (SETQ B (ENTSEL "\nPick Text Line"))
  6. (IF (= B nil) (PROGN (HIBA)(EXIT)))
  7. (IF (= "TEXT" (CDR (ASSOC 0 (SETQ E (ENTGET (CAR B))))))
  8.  (PROGN (SETQ C (CDR (ASSOC 1 E)))
  9.   (SETQ F (CDR (ASSOC 8 E)))
  10.   (COMMAND "LAYER" "S" F "")
  11.   (SETQ P (OSNAP (CADR B) "INSERT"))
  12.   (SETQ M (CDR (ASSOC 7 E)))
  13.   (SETQ H (CDR (ASSOC 40 E)))
  14.   (SETQ D (* 1.6667 H))
  15.   (SETQ G (* (/ 180 PI) (CDR (ASSOC 50 E))))
  16.   (SETQ A (/ (+ G 270.0) (/ 180 PI)))
  17.   (SETQ I (CDR (ASSOC 72 E)))
  18.   (IF (= I 0) (SETQ J "L"))
  19.   (IF (= I 1) (SETQ J "C"))
  20.   (IF (= I 2) (SETQ J "R"))
  21.   (IF (= I 4) (SETQ J "M"))
  22.   (PRINC "\nOld Text: ") (PRINC C)
  23.   (SETQ K "T")
  24.   (WHILE K
  25.    (SETQ K (GETSTRING T "\nAdd Text: "))
  26.    (IF (= K "") (SETQ K NILL))
  27.    (PROGN
  28.     (SETQ P (POLAR P A D))
  29.     (IF (= J "L")
  30.      (COMMAND "TEXT" "S" M P H G K)
  31.      (COMMAND "TEXT" "S" M J P H G K)
  32.     )
  33.    )
  34.   )
  35.  )
  36. (PROGN
  37.  (PROMPT "\n>>>> YOU MUST SELECT TEXT LINE MEATBALL! <<<<")
  38.  (HIBA)(EXIT))
  39. )
  40. (ON))
  41.